home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / misc / zpoint_3_14.lha / zpoint-3.14 / Rexx / Melitta.zprx < prev    next >
Text File  |  1995-03-09  |  3KB  |  110 lines
  1. /*
  2.     $VER: Melitta.zprx V1.1 (2.8.94) Copyright (c) Robin Stember
  3.  
  4.     Dies ist ein ARexx-Skript für Zodiac's Point, mit dem man auf
  5.     bequeme Weise Leute auf den Filter setzen kann.
  6.  
  7.     Sie dürfen dieses Skript beliebig kopieren, solange es zusammen
  8.     mit Zodiac's Point eingesetzt wird, aber verändern Sie es bitte
  9.     nicht ohne Erlaubnis des Autors.
  10.  
  11.     Sie erreichen den Autor wie folgt:
  12.  
  13.        Robin Stember           Tel. : +49 2203 35121
  14.        Auf dem Streitacker 24  EMail: rost@trade.gun.de
  15.        51149 Koeln
  16.  
  17.  
  18.     Hinweise zur Installation:
  19.  
  20.     Kopieren sie dieses Skript in das Rexx-Verzeichnis von ZP und
  21.     fügen sie danach der Datei 'fkeys.zp' auf Wunsch den Eintrag
  22.     "F1:SYS:Rexxc/RX ZP:Rexx/Melitta.zprx %s" hinzu.
  23.  
  24. Änderungen seit V1.00
  25. - Schneidet Domain und Realnames ab und fügt Joker ein (V1.01).
  26.   (ZP versteht das sonnst nicht!)
  27. - Verschickt wahlweise eine Nachricht an den Gefilterten (V1.1).
  28.  
  29. */
  30.  
  31. /* Eigene Wünsche hier verwirklichen */
  32.  
  33. /* Pfad und Name wo ihre Filterdatei sich befindet */
  34. Dateiname = 'ZP:filter.zp'
  35.  
  36. /* Der Betreff der Nachricht, falls sie ihm eine schicken möchten */
  37. msgsubj = '"Sie werden nun gefiltert"'
  38.  
  39. /* Flame */
  40. message = 'Du schreibst nur Mist und das regt mich tierisch auf!' '0a'x  ||'Bei mir biste nun auf dem Filter!'
  41.  
  42.  
  43.  
  44. /* Ab hier nichts mehr ändern */
  45.  
  46. options results
  47.  
  48. PARSE arg ZPScreen
  49.  
  50.  
  51. address VALUE ZPScreen
  52.  
  53.   WHICHLEVEL ; Level=RESULT
  54.  
  55.   IF Level ~= 'BOARD'  then DO
  56.      REQUESTNOTIFY 'Du Trottel! Du musst schon im Nachrichtenmenue sein!'
  57.      EXIT
  58.      END
  59.  
  60.   MESSAGEINFO AUTHOR ; Author = RESULT 
  61.  
  62.   /* Zuerst testen, ob die Datei überhaupt schon existiert */
  63.  
  64.   If ~EXISTS(Dateiname) then DO
  65.      /* Datei existiert noch nicht und wird neu angelegt */
  66.      ok = OPEN('Filter',Dateiname,'W')
  67.      ok = CLOSE('Filter')
  68.      END
  69.  
  70. if ~ OPEN('Filter',Dateiname,'A') then DO
  71.    REQUESTNOTIFY "FEHLER FEHLER FEHLER FEHLER FEHLER FEHLER FEHLER"
  72.    exit(0)
  73. end
  74. Outhor = Author
  75.  IF POS("(",Author) = 0 THEN
  76.   Buthor = Author
  77.  ELSE
  78.   Buthor = DELSTR(Author,POS("(",Author))
  79.  
  80. Author = INSERT("#?",DELSTR(Author,POS(".",Author,POS("@",Author)),LENGTH(Author)),POS(".",Author,POS("@",Author))-1)
  81.  
  82.    ok = WRITELN('Filter',Author)
  83.    ok = CLOSE('Filter')
  84.    REQUESTRESPONSE 'Der unerträgliche Laberkopp' || '0a'x ||Outhor|| '0a'x || 'ist nun auf dem Filter, Sir!' || '0a'x 'Soll ich es ihm noch in einer Nachricht mitteilen?'
  85.  
  86.   If RC then DO
  87.  
  88. tmp = 'T:koppi.txt'
  89.  
  90. ok = OPEN('msg',tmp,'W')
  91. ok = WRITELN('msg',message || '0a'x)
  92. ok = WRITELN('msg','Diese Mail wurde Automatisch mit MELITTA V1.1 erstellt.' || '0a'x)
  93. ok = CLOSE('msg')
  94.  
  95.      
  96. wto   = 'RECEIVER' Buthor
  97. wsubj = 'SUBJECT' msgsubj
  98. wopts = 'COOKIE CONFIRM'
  99.      
  100. WriteMessage tmp wto wsubj wopts
  101. id = RESULT
  102.      
  103. IF (id = '') THEN DO
  104.     RequestNotify 'Kann Nachricht nicht verschicken!'
  105.     END
  106.      END
  107.  
  108. EXIT
  109.  
  110.